Clipboard.Clear 'clear anything that was previeslly copied
Clipboard.SetText (FadedText$) 'copy the faded text (code)
End Sub
Private Sub Form_Load()
Dim MyMsg As String
MyMsg$ = InputBox("Please Enter Your Browser Name.") 'in an input box have the text 'please enter your browser name
MAINform!Text14.Text = MyMsg$ ' the textbox14 will contain whatever the user inputed in in the input box
End Sub
Private Sub HScroll1_Scroll()
Text1.Text = Str(HScroll1.Value) ' the value of Hscroll1 will be in textbox1
Picture1.BackColor = RGB(Text1.Text, Text2.Text, Text3.Text) 'asign a picture box the value of the text boxs, which is the value of the scroll bars,....and because the scroll bars have a max of 255..it is also the red,green,blue value
End Sub
Private Sub HScroll2_Scroll()
Text2.Text = Str(HScroll2.Value) ' the value of Hscroll2 will be in textbox2
Picture1.BackColor = RGB(Text1.Text, Text2.Text, Text3.Text) 'asign a picture box the value of the text boxs, which is the value of the scroll bars,....and because the scroll bars have a max of 255..it is also the red,green,blue value
End Sub
Private Sub HScroll3_Scroll()
Text3.Text = Str(HScroll3.Value) ' the value of Hscroll3 will be in textbox3
Picture1.BackColor = RGB(Text1.Text, Text2.Text, Text3.Text) 'asign a picture box the value of the text boxs, which is the value of the scroll bars,....and because the scroll bars have a max of 255..it is also the red,green,blue value
End Sub
Private Sub HScroll4_Scroll()
Text8.Text = Str(HScroll4.Value) ' the value of Hscroll4 will be in textbox8
Picture5.BackColor = RGB(Text8.Text, Text9.Text, Text10.Text) 'asign a picture box the value of the text boxs, which is the value of the scroll bars,....and because the scroll bars have a max of 255..it is also the red,green,blue value
End Sub
Private Sub HScroll5_Scroll()
Text9.Text = Str(HScroll5.Value) ' the value of Hscroll5 will be in textbox9
Picture5.BackColor = RGB(Text8.Text, Text9.Text, Text10.Text) 'asign a picture box the value of the text boxs, which is the value of the scroll bars,....and because the scroll bars have a max of 255..it is also the red,green,blue value
End Sub
Private Sub HScroll6_Scroll()
Text10.Text = Str(HScroll6.Value) ' the value of Hscroll6 will be in textbox10
Picture5.BackColor = RGB(Text8.Text, Text9.Text, Text10.Text) 'asign a picture box the value of the text boxs, which is the value of the scroll bars,....and because the scroll bars have a max of 255..it is also the red,green,blue value
End Sub
Private Sub HScroll7_Scroll()
Text11.Text = Str(HScroll7.Value) ' the value of Hscroll7 will be in textbox11
Picture9.BackColor = RGB(Text11.Text, Text12.Text, Text13.Text) 'asign a picture box the value of the text boxs, which is the value of the scroll bars,....and because the scroll bars have a max of 255..it is also the red,green,blue value
End Sub
Private Sub HScroll8_Scroll()
Text12.Text = Str(HScroll8.Value) ' the value of Hscroll8 will be in textbox12
Picture9.BackColor = RGB(Text11.Text, Text12.Text, Text13.Text) 'asign a picture box the value of the text boxs, which is the value of the scroll bars,....and because the scroll bars have a max of 255..it is also the red,green,blue value
End Sub
Private Sub HScroll9_Scroll()
Text13.Text = Str(HScroll9.Value) ' the value of Hscroll9 will be in textbox13
Picture9.BackColor = RGB(Text11.Text, Text12.Text, Text13.Text) 'asign a picture box the value of the text boxs, which is the value of the scroll bars,....and because the scroll bars have a max of 255..it is also the red,green,blue value
End Sub
Private Sub mnuAclear_Click()
Text7.Text = " " 'text7 will contain nothing (it just clears text7
End Sub
Private Sub mnuAcopy_Click()
FFadedText$ = FadeThreeColor(Text1.Text, Text2.Text, Text3.Text, Text8.Text, Text9.Text, Text10.Text, Text11.Text, Text12.Text, Text13.Text, Text7.Text$, False) 'fade text using the monkefade and the rgb values which are in the text boxs
Clipboard.Clear 'clear anything that has been copied
Clipboard.SetText (FadedText$) 'copy the faded text (code)
End Sub
Private Sub mnuBchange_Click()
MAINform.Height = 3360 'change the forms height to 3360
End Sub
Private Sub mnuBhelp_Click()
MsgBox "At the top of your yahoo! chat screen you will see something like Yahoo! Chat Peep's Lounge (16-19) - Microsoft Internet Explorer , copy what it says exactlly. There might be two spaces between words, so inspect it good.", 64, "Browser Help" 'have a pop-up with help
End Sub
Private Sub mnuCabout_Click()
Unload Me 'close this form
about.Show 'load the about form
End Sub
Private Sub mnuEaltcaps_Click()
Text7.Text = fnC8((Text7.Text)) 'text7 will use the fnC8 function
End Sub
Private Sub mnuEbackwards_Click()
Text7.Text = fn100((Text7.Text)) 'text7 will use the fn100 function (look in module1)
End Sub
Private Sub mnuEbold_Click()
Text7.Text = "<b>" & Text7.Text & "</b>" 'text7 will have <b> then what ever was in text 7 then </b>
End Sub
Private Sub mnuEelite_Click()
Text7.Text = fn138((Text7.Text)) 'text7 will use the fn138 function (look in mudule 1)
End Sub
Private Sub mnuEhacker_Click()
Text7.Text = fn170((Text7.Text)) 'text7 will use the fn170 function (look in module1)
End Sub
Private Sub mnuEitalic_Click()
Text7.Text = "<i>" & Text7.Text & "</i>" 'text7 will have <i> then what ever was in text 7 then </i>
End Sub
Private Sub mnuEunderline_Click()
Text7.Text = "<u>" & Text7.Text & "</u>" 'text7 will have <u> then what ever was in text 7 then </u>
End Sub
Private Sub mnufExit_Click()
End 'end the program...it will close all other forms that are open..unlike 'unload me' which only closes the form
End Sub
Private Sub mnuFhelp_Click()
MsgBox "Scroll the bars to get a color, it says which is 1st,2nd and third color.Once you have chosen your colors, you may optionally choose effects like, backwards, elite, bold, and so on. Then you click copy and the text is copied, all you need to do is paste it in Yahoo! Chat or you can click send and send the text", 64, "Help" 'in a pop-up there will be help
End Sub
Private Sub Option1_Click()
Text7.Text = "<u>" & Text7.Text & "</u>" 'text7 will have <u> then what ever was in text 7 then </u>
End Sub
Private Sub Option2_Click()
Text7.Text = "<b>" & Text7.Text & "</b>" 'text7 will have <b> then what ever was in text 7 then </b>
End Sub
Private Sub Option3_Click()
Text7.Text = "<i>" & Text7.Text & "</i>" 'text7 will have <i> then what ever was in text 7 then </i>
End Sub
Private Sub Option4_Click()
Text7.Text = fn138((Text7.Text)) 'text7 uses the fn138 function
End Sub
Private Sub Option5_Click()
Text7.Text = fn100((Text7.Text)) 'text7 uses the fn100 function
End Sub
Private Sub Option6_Click()
Text7.Text = fn170((Text7.Text)) 'text7 uses the fn170 function
End Sub
Private Sub Option7_Click()
Text7.Text = fnC8((Text7.Text)) 'text7 uses the fnc8 function
End Sub
Private Sub Option8_Click()
End Sub
Private Sub Text7_Change()
If Text7.Text <> "" Then 'if text 7 is equal to nothing then
Command1.Enabled = True 'enable command1
Command6.Enabled = True 'enable command6
Command5.Enabled = True 'enable command5
mnuActions.Enabled = True 'enable the menu actions
mnuEffects.Enabled = True 'enable the menu effects
Option1.Enabled = True 'enable option1
Option2.Enabled = True 'enable option2
Option3.Enabled = True 'enable option3
Option4.Enabled = True 'enable option4
Option5.Enabled = True 'enable option5
Option6.Enabled = True 'enable option6
Option7.Enabled = True 'enable option7
Else 'if its anything else
Command6.Enabled = False 'disable command6
Command5.Enabled = False 'disable command5
mnuActions.Enabled = False 'disable the menu actions
mnuEffects.Enabled = False 'disable the menu actions
Option1.Enabled = False 'disable option1
Option2.Enabled = False 'disable option2
Option3.Enabled = False 'disable option3
Option4.Enabled = False 'disable option4
Option5.Enabled = False 'disable option5
Option6.Enabled = False 'disable option6
Option7.Enabled = False 'disable option7
Command1.Enabled = False 'disable command1
End If 'end the function
'all this does is...if there is any text to use a function with.
'...then all the functions are enabled..
'but if there isn't any text to use a function with then
(.txt)